;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  5-21-2004
;;;	   Edited:  5-7-2014
(defun ppgrid_error (msg / )
  (if old_attrreq
    (setvar "attreq" old_attreq)
  )
  (princ msg)
  (setq *error* old_ppgrid_error)
  (princ)
)
(defun c:ppgrid ()
  (setq old_ppgrid_error *ERROR*)
  (setq *error* ppgrid_error)
  (if ukword nil (load "ukword" "File UKWORD.LSP not found! "))
  (SETQ old_attreq (GETVAR "ATTREQ"))
  (SETVAR "ATTREQ" 0)
  (setq whichgrid (ukword 1 "20 25 30 40 50 60" "Horiz.scale? [20/25/30/40/50/60]" (if whichgrid (substr whichgrid 1 2) "50")))
  (if c:mklayr nil (load "mklayr" "\nFile MKLAYR.LSP not loaded! "))
  (c:svlayr)
  (command "-layer" "m" (STRCAT (if whichgrid (substr whichgrid 1 2) "50") "ppgrid") "")
  (command "-insert" (STRCAT (if whichgrid (substr whichgrid 1 2) "50") "ppgrid=") "0,0" 1 1 0)
  (c:rslayr)
  (SETVAR "ATTREQ" old_attreq)
  (setq *error* old_ppgrid_error)
  (princ)
)